inherited frmCon_IntervaloDesc: TfrmCon_IntervaloDesc
  Left = 323
  Top = 227
  Caption = 'Consulta de Intervalo de Descontos'
  OnActivate = FormActivate
  PixelsPerInch = 96
  TextHeight = 13
  inherited GB: TGroupBox
    Height = 25
    Visible = False
  end
  inherited Panel2: TPanel
    Top = 25
    Height = 275
    object DBGrid1: TDBGrid
      Left = 1
      Top = 1
      Width = 624
      Height = 273
      Align = alClient
      DataSource = DS
      Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'Arial'
      TitleFont.Style = [fsBold]
      OnDblClick = DBGrid1DblClick
      OnTitleClick = DBGrid1TitleClick
      Columns = <
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'IND_INTERVALOINI'
          Title.Alignment = taCenter
          Title.Caption = 'I. Inicial'
          Width = 100
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'IND_INTERVALOFIM'
          Title.Alignment = taCenter
          Title.Caption = 'I. Final'
          Width = 100
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'IND_PERCDESCONTO'
          Title.Alignment = taCenter
          Title.Caption = 'Perc. Desconto'
          Width = 100
          Visible = True
        end>
    end
  end
  object DS: TDataSource
    DataSet = CDS
    Left = 152
    Top = 65529
  end
  object tq: TQuery
    DatabaseName = 'Industrial1'
    SQL.Strings = (
      'select * from INTERVALO_DESCONTO'
      'order by IND_INTERVALOINI,IND_INTERVALOFIM')
    Left = 224
    Top = 65529
  end
  object CDS: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DataSetProvider1'
    Left = 176
    Top = 65529
    object CDSIND_INTERVALOINI: TFloatField
      FieldName = 'IND_INTERVALOINI'
      DisplayFormat = '0.00 %'
    end
    object CDSIND_INTERVALOFIM: TFloatField
      FieldName = 'IND_INTERVALOFIM'
      DisplayFormat = '0.00 %'
    end
    object CDSIND_PERCDESCONTO: TFloatField
      FieldName = 'IND_PERCDESCONTO'
      DisplayFormat = '0.00 %'
    end
  end
  object DataSetProvider1: TDataSetProvider
    DataSet = tq
    Left = 200
    Top = 65529
  end
end
